home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / tcpech1a / performa.cls < prev   
Text File  |  1999-08-31  |  2KB  |  66 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "Performance"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  15. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  16. Option Explicit
  17.  
  18. Private mvarPerfName As String
  19. Private mvarPerfStartTime As Long
  20. Private mvarPerfEndTime As Long
  21. Private mvarPerfTotalTime As Long
  22. Private mvarPerfHitCount As Long
  23.  
  24. Public Property Let PerfTotalTime(ByVal vData As Long)
  25.     mvarPerfTotalTime = vData
  26. End Property
  27.  
  28. Public Property Get PerfTotalTime() As Long
  29. Attribute PerfTotalTime.VB_UserMemId = 0
  30.     PerfTotalTime = mvarPerfTotalTime
  31. End Property
  32.  
  33. Public Property Let PerfHitCount(ByVal vData As Long)
  34.     mvarPerfHitCount = vData
  35. End Property
  36.  
  37. Public Property Get PerfHitCount() As Long
  38.     PerfHitCount = mvarPerfHitCount
  39. End Property
  40.  
  41. Friend Property Let PerfEndTime(ByVal vData As Long)
  42.     mvarPerfEndTime = vData
  43. End Property
  44.  
  45. Friend Property Get PerfEndTime() As Long
  46.     Let PerfEndTime = mvarPerfEndTime
  47. End Property
  48.  
  49. Friend Property Let PerfStartTime(ByVal vData As Long)
  50.     mvarPerfStartTime = vData
  51. End Property
  52.  
  53. Friend Property Get PerfStartTime() As Long
  54.     Let PerfStartTime = mvarPerfStartTime
  55. End Property
  56.  
  57. Friend Property Let PerfName(ByVal vData As String)
  58.     mvarPerfName = vData
  59. End Property
  60.  
  61. Friend Property Get PerfName() As String
  62.     Let PerfName = mvarPerfName
  63. End Property
  64.  
  65.  
  66.